home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 November & December / rerun-1988-11-12.d64 / menu 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  82 lines
  1. 10 rem new rerun c64 automenu
  2. 20 rem lou wallace
  3. 40 poke53280,0:poke53281,0:printchr$(142)
  4. 50 dr=peek(186):v=54273
  5. 60 ch$="abcdefghijklmnopqrstuvwxyz"
  6. 70 dr$=right$(str$(dr),len(str$(dr))-1)
  7. 80 dim n$(255),d$(255):cx=54272:print "[147]"
  8. 90 read f
  9. 100 for i=1 to f:read n$(i),d$(i)
  10. 110 if len(n$(i))>13 then n$(i)=left$(n$(i),13)+"*"
  11. 120 next
  12. 130 gosub 400
  13. 140 rem - print first column of names -
  14. 150 d$=""
  15. 160 for i=1 to f/2
  16. 170 print d$;
  17. 180 print""mid$(ch$,i,1)" "n$(i)
  18. 190 gosub 590:d$=d$+""
  19. 200 next
  20. 210 rem -- then 2nd column of names ---
  21. 220 d$=""
  22. 230 for i=(f/2+1) to f
  23. 240 print d$;
  24. 250 printspc(19)""mid$(ch$,i,1)" "n$(i)
  25. 260 gosub 590:d$=d$+""
  26. 270 next
  27. 280 getm$:ifm$=""then 280
  28. 290 ifm$<"a"orm$>chr$(64+f)then280
  29. 300 p=asc(m$)-64:print"[147]"
  30. 310 if d$(p)<>"run" then 340
  31. 320 iflen(n$(p))>12thenn$(p)=left$(n$(p),12)+"*"
  32. 330 print"load"chr$(34)n$(p)chr$(34)","dr$"[145][145][145]":goto360
  33. 340 iflen(n$(p))>15thenn$(p)=left$(n$(p),16)+"*"
  34. 350 print"load"chr$(34)n$(p)chr$(34)","dr$",1[145][145][145]"
  35. 360 a$=d$(p)
  36. 370 a$=a$+chr$(13)
  37. 380 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
  38. 390 new
  39. 400 poke 53280,0:poke 53281,0
  40. 410 ov=peek(53265)
  41. 420 poke 53265,peek(53265)and 247
  42. 430 poke 53265,(peek(53265)and248)+7
  43. 440 pr$="[209][165]                                    [167][209]"
  44. 450 tp$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
  45. 460 md$="[209][165][194]                                  [194][167][209]"
  46. 470 bt$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
  47. 480 hd$="1988 november/december rerun"
  48. 490 print"[147]";
  49. 500 print tp$;:gosub 590
  50. 510 for i=1 to 2:print md$;:gosub 590:next
  51. 520 print"[145]";hd$;:gosub 590
  52. 530 print:print"[145]";
  53. 540 for i=1 to 1:print md$;:gosub 590:next
  54. 550 print bt$;:gosub 590
  55. 560 for i=1 to 19:print pr$;:gosub 590:next
  56. 570 poke 53265,27
  57. 580 return
  58. 590 rem sound routine here
  59. 600 poke v+23,15:poke v+4,9:poke v+5,0:poke v,1:poke v+3,32:poke v+3,33
  60. 610 return
  61. 1000 rem file list
  62. 1010 rem first entry is the number of programs on this disk
  63. 1020 rem followed by each filename
  64. 1030 rem second data item is run or sysxxxxx
  65. 1040 rem run if file is basic and sys xxxxx if ml
  66. 1050 data 15
  67. 1060 data trivia,run
  68. 1080 data panels,run
  69. 1090 data panels.hex,run
  70. 1100 data measure mate 64,run
  71. 1110 data concentration st,run
  72. 1120 data conc.list2,run
  73. 1130 data mass file delete,run
  74. 1140 data finance 64,run
  75. 1150 data boot caverns,run
  76. 1160 data +caverns ml ,sys16384
  77. 1170 data score generator,run
  78. 1180 data caverns hex load,run
  79. 1190 data math match,run
  80. 1200 data icon editer,run
  81. 1230 data "",run
  82.